Nuprl Lemma : rel-star-iff-rel-plus-or
11,40
postcript
pdf
T
:Type,
R
:(
T
T
),
x
,
y
:
T
. (
x
(
R
^*)
y
)
((
x
R
^+
y
)
(
x
=
y
))
latex
Definitions
x
:
A
.
B
(
x
)
,
,
P
Q
,
x
f
y
,
R
^*
,
P
Q
,
R
^+
,
x
:
A
.
B
(
x
)
,
P
&
Q
,
P
Q
,
P
Q
,
t
T
,
SQType(
T
)
,
{
T
}
,
,
,
rel_exp(
T
;
R
;
n
)
,
A
B
,
A
,
False
,
Y
,
if
b
then
t
else
f
fi
,
(
i
=
j
)
,
tt
,
Dec(
P
)
,
S
T
Lemmas
nat
wf
,
rel
exp
wf
,
nat
plus
wf
,
nat
plus
inc
,
decidable
int
equal
,
le
wf
origin
T:Type, R:(T
T
), x, y:T. (x (R^*) y) 
((x R^+ y) 
(x = y)) T:Type, R:(TT), x, y:T. (x (R^*) y) ((x R^+ y) (x = y)) x:A. B(x) Q Q
x:A. B(x) Q Q
T
B
A
j)
T